home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Microsoft Plateform / Visual Basic 5.0 / Msvb50.ace / msvb50 / MSVB50 / VB / SAMPLES / VISDATA / ABOUTBOX.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1996-11-25  |  4.2 KB  |  138 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAboutBox 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About Visual Data Manager"
  5.    ClientHeight    =   2280
  6.    ClientLeft      =   4395
  7.    ClientTop       =   2925
  8.    ClientWidth     =   5055
  9.    BeginProperty Font 
  10.       Name            =   "Tahoma"
  11.       Size            =   8.25
  12.       Charset         =   0
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Height          =   2745
  19.    Icon            =   "ABOUTBOX.frx":0000
  20.    Left            =   4335
  21.    LinkMode        =   1  'Source
  22.    LinkTopic       =   "Form1"
  23.    LockControls    =   -1  'True
  24.    MaxButton       =   0   'False
  25.    MinButton       =   0   'False
  26.    ScaleHeight     =   2280
  27.    ScaleWidth      =   5055
  28.    ShowInTaskbar   =   0   'False
  29.    StartUpPosition =   2  'CenterScreen
  30.    Top             =   2520
  31.    Width           =   5175
  32.    Begin VB.CommandButton cmdOK 
  33.       Cancel          =   -1  'True
  34.       Caption         =   "&OK"
  35.       Default         =   -1  'True
  36.       Height          =   375
  37.       Left            =   2040
  38.       MaskColor       =   &H00000000&
  39.       TabIndex        =   1
  40.       Top             =   1800
  41.       Width           =   975
  42.    End
  43.    Begin VB.PictureBox picIcon 
  44.       BackColor       =   &H00C0C0C0&
  45.       BorderStyle     =   0  'None
  46.       BeginProperty Font 
  47.          Name            =   "MS Sans Serif"
  48.          Size            =   8.25
  49.          Charset         =   1
  50.          Weight          =   400
  51.          Underline       =   0   'False
  52.          Italic          =   0   'False
  53.          Strikethrough   =   0   'False
  54.       EndProperty
  55.       Height          =   525
  56.       Left            =   255
  57.       Picture         =   "ABOUTBOX.frx":000C
  58.       ScaleHeight     =   525
  59.       ScaleWidth      =   480
  60.       TabIndex        =   0
  61.       Top             =   300
  62.       Width           =   480
  63.    End
  64.    Begin VB.Label lblLabels 
  65.       Alignment       =   2  'Center
  66.       Caption         =   "Copyright Microsoft Corp. 1996-97"
  67.       Height          =   375
  68.       Index           =   3
  69.       Left            =   1320
  70.       TabIndex        =   5
  71.       Top             =   1320
  72.       Width           =   2535
  73.    End
  74.    Begin VB.Label lblLabels 
  75.       Alignment       =   2  'Center
  76.       Caption         =   "Version 5.0"
  77.       Height          =   210
  78.       Index           =   2
  79.       Left            =   1320
  80.       TabIndex        =   4
  81.       Top             =   840
  82.       Width           =   2535
  83.    End
  84.    Begin VB.Label lblLabels 
  85.       Alignment       =   2  'Center
  86.       Caption         =   "Visual Data Manager"
  87.       Height          =   210
  88.       Index           =   1
  89.       Left            =   1200
  90.       TabIndex        =   3
  91.       Top             =   600
  92.       Width           =   2895
  93.    End
  94.    Begin VB.Label lblLabels 
  95.       Alignment       =   2  'Center
  96.       Caption         =   "Microsoft Visual Basic"
  97.       Height          =   270
  98.       Index           =   0
  99.       Left            =   1320
  100.       TabIndex        =   2
  101.       Top             =   120
  102.       Width           =   2535
  103.    End
  104. Attribute VB_Name = "frmAboutBox"
  105. Attribute VB_Base = "0{529A4441-C9E1-11CF-9ED2-00AA00574745}"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_TemplateDerived = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Attribute VB_Customizable = False
  112. Option Explicit
  113. '>>>>>>>>>>>>>>>>>>>>>>>>
  114. Const FORMCAPTION = "About Visual Data Manager"
  115. Const LABEL0 = "Microsoft Visual Basic"
  116. Const Label1 = "Visual Data Manager"
  117. Const Label2 = "Version 5.0"
  118. Const LABEL3 = "Copyright Microsoft Corp. 1996-97"
  119. Const BUTTON1 = "&OK"
  120. '>>>>>>>>>>>>>>>>>>>>>>>>
  121. Private Sub Form_KeyPress(KeyAscii As Integer)
  122.   Unload Me
  123. End Sub
  124. Private Sub Form_Load()
  125.   Me.Caption = FORMCAPTION
  126.   lblLabels(0).Caption = LABEL0
  127.   lblLabels(1).Caption = Label1
  128.   lblLabels(2).Caption = Label2
  129.   lblLabels(3).Caption = LABEL3
  130.   cmdOK.Caption = BUTTON1
  131. End Sub
  132. Private Sub cmdOK_Click()
  133.   Unload Me
  134. End Sub
  135. Private Sub cmdOK_KeyPress(KeyAscii As Integer)
  136.   Unload Me
  137. End Sub
  138.